home *** CD-ROM | disk | FTP | other *** search
/ MacAddict 24 / MacAddict_024_1998_08.iso / Media / Sponsors.dxr / Internal_1_movie script.ls < prev    next >
Encoding:
Text File  |  1998-06-03  |  1.6 KB  |  71 lines
  1. on prepareMovie
  2.   getAdData()
  3.   importAds()
  4.   importRolls()
  5. end
  6.  
  7. on startMovie
  8.   if the optionDown = 1 then
  9.     go("import")
  10.   else
  11.     nothing()
  12.   end if
  13.   openXLib(the pathName & "xtras:FileIOXtraFat")
  14.   set gOSDir to getOSDirectory()
  15.   put gOSDir & "Preferences:" into field "OSPath"
  16.   put gOSDir & "Preferences:Browser.txt" into field "ThePath"
  17.   loadBrowser()
  18. end
  19.  
  20. on enterFrame
  21.   global whatchtalkinboutwillis
  22.   pointCursor(2)
  23.   repeat with x = 1 to whatchtalkinboutwillis
  24.     pointCursor(x + 3)
  25.   end repeat
  26.   set the visible of sprite 2 to rollOver(2)
  27. end
  28.  
  29. on pointCursor spriteNum
  30.   set the cursor of sprite spriteNum to [the number of member "pointer", the number of member "pointer.mask"]
  31. end
  32.  
  33. on buttonClick whichSprite
  34.   puppetSprite(whichSprite, 1)
  35.   set the locV of sprite whichSprite to the locV of sprite whichSprite + 1
  36.   set the locH of sprite whichSprite to the locH of sprite whichSprite + 1
  37.   updateStage()
  38. end
  39.  
  40. on launchWebThingy whichURL
  41.   global gBrowser
  42.   loadBrowser()
  43.   if field "browser" = EMPTY then
  44.     NoBrowserU()
  45.   else
  46.     gotoNetPage(whichURL)
  47.   end if
  48. end
  49.  
  50. on NoBrowserU
  51.   alert("You must select a Web Browser to link to this information. Please select one now.")
  52.   openconfigwindow()
  53. end
  54.  
  55. on loadBrowser
  56.   global myfile
  57.   set myfile to new(xtra("fileio"))
  58.   set finalPath to field "OSPath"
  59.   openFile(myfile, finalPath & "Browser.txt", 1)
  60.   set theBrowser to readLine(myfile)
  61.   put theBrowser into field "browser"
  62.   closeFile(myfile)
  63.   set myfile to 0
  64.   enableBrowser()
  65. end
  66.  
  67. on enableBrowser
  68.   browserName(the text of field "browser")
  69.   browserName(#enabled, 1)
  70. end
  71.